home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0195.ZIP
/
GETSETDD.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-12-03
|
566b
|
20 lines
{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.
}
program Get_and_Set_Default_Drive;
var
drive : char;
{$I regpack.typ}
{$I getsetdd.lib}
begin
GetSetDrive('G',drive);
WriteLn('The default drive is now ',drive);
Write('Change to what? ');
read(drive); WriteLn;
GetSetDrive('S',drive);
GetSetDrive('G',drive);
WriteLn('The default drive is now ',drive);
end.